﻿Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

Namespace Dominio
    Public Class ActividadGuardia
        Inherits SIAVU.Dominio.Actividad

        Public Overrides ReadOnly Property TipoActividadID() As Integer
            Get
                Return ETipoActividad.Guardia
            End Get
        End Property

        Public Overrides Property InformacionCompleta() As String
            Get
                If MyBase.InformacionCompleta = "" Then
                    Dim sAux As New StringBuilder
                    sAux.AppendLine("<b><u><font size=3>" + Me.Descripcion + "</font></u></b><br />")
                    Select Case HttpContext.Current.Request.Url.AbsolutePath.ToUpper()
                        Case "/Presentacion/VerHistorial.aspx".ToUpper()
                            If Me.Motivo <> String.Empty Then
                                sAux.AppendLine(Me.Motivo)
                            End If
                    End Select
                    Return sAux.ToString

                Else
                    Return MyBase.InformacionCompleta
                End If

            End Get
            Set(ByVal value As String)
                MyBase.InformacionCompleta = value
            End Set
        End Property

        Public Overrides ReadOnly Property Descripcion() As String
            Get
                Return "Guardia"
            End Get
        End Property
    End Class
End Namespace

